home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / Contributions / Haage_&_Partner / StormC / StormC Install-Script < prev    next >
Encoding:
Text File  |  1999-11-03  |  48.2 KB  |  1,451 lines
  1. ; $VER: StormC V3.0 Update Install Version 3.0 (02.11.99)
  2. ; (c) 1997-1999 HAAGE & PARTNER Computer GmbH
  3.  
  4. (effect "lower_right" "radial" $FF0000 $FFFF00)
  5.  
  6. (complete 0)
  7.  
  8. ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
  9. ; Versionen.
  10.  
  11. (set stcpp-version "3.0")
  12. (set stcpp-date "(26 Apr 98)")
  13.  
  14. ;====================================================================
  15. ; Initialisierungen
  16.  
  17.  
  18. (set @default-dest "")
  19.  
  20. (set os-version (/ (getversion) 65536))
  21. (set os-13 (< os-version 36))
  22. (set os-20 (>= os-version 36))
  23. (set os-21 (>= os-version 38))
  24.  
  25. (set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
  26.  
  27. ; Die Pfadnamen der Programme, die vom Installations-Skript aufgerufen werden.
  28.  
  29. ; Die Pfadnamen der einzelnen Quell-Dateien.
  30.  
  31. (set #binsource         "StormC_3.0")   ; Hier stehen die Ausführbaren Programme
  32. (set #envsource         "Settings")        ; Die Voreinstellungen
  33. (set #wizlib            "StormC_3.0/LIBS/Wizard.library"); Hier steht die Bibliohtek
  34.  
  35. (set #prp-copy-all
  36.         "Copying new version of StormC environment...")
  37.  
  38. (set #hlp-copy-all
  39.         "Use the manual and the examples to get a quick start with StormC")
  40.  
  41. (set #prp-copy-env
  42.         "Copying the StormC default icons...")
  43.  
  44. (set #hlp-copy-env
  45.         "The icons are used by the project management and by the editor")
  46.  
  47. (set #prp-copy-wizlib
  48.    "Copying the Wizard.Library")
  49.  
  50. (set #hlp-copy-wizlib
  51.    "The Library makes very short programms!")
  52.  
  53.     (set #oldversion (cat "\n"
  54.         "There is an old version of StormC on your\n"
  55.         "harddisk!\n"
  56.         "" (getassign "STORMC") "\n"
  57.         ))
  58.  
  59.     (set #oldversion_help (cat "\n"
  60.         "Choose an option!\n"
  61.         ""
  62.         ))
  63.  
  64.     (set #new    "New installation")
  65.     (set #drueber "Update your existing version of StormC")
  66. ;    (set #remove "Delete StormC")
  67.  
  68.     (set #tooltype_select_pubscreen  "PUBSCREEN=STORMC")
  69.     (set #tooltype_select_quite      "QUIET=TRUE")
  70.     (set #tooltype_select_hothelp    "HOTHELP=TRUE")
  71.     (set #tooltype_select_golded     "GOLDED=TRUE")
  72.     (set #tooltype_select_savemem    "SAVEMEM=TRUE")
  73.  
  74.     (set #tooltype_select (cat "\n"
  75.        "Which Tooltypes do you want to install?\n\n"
  76.        ))
  77.  
  78.     (set #tooltype_select_help (cat "\n\n"
  79.        " PUBSCREEN=STORMC                                \n\n"
  80.        "If you use the StormC environment on an owe screen\n"
  81.        "you should have or install a plublic screen manager.\n\n"
  82.        " QUIET=TRUE                                      \n\n"
  83.        "There will be no feedback while starting the\n"
  84.        "StormC Environment.\n\n"
  85.        " HOTHELP=TRUE                                    \n\n"
  86.        "You can use the hypertext system Hothelp instead\n"
  87.        "of Amiga Guide.\n\n"
  88.        " GOLDED=TRUE                                     \n\n"
  89.        "Instead of StormED you can work with the GoldED\n"
  90.        "Version 3.1. For debugging the StormED will be loaded.\n"
  91.        "You should configure these if your Amiga have\n"
  92.        "enough memory.\n\n"
  93.        " SAVEMEM=TRUE                                     \n\n"
  94.        "Only the really used programs will be startet. \n"
  95.        "StormC, StormLink, and StormRun will be started\n"
  96.        "if you want to use them.\n"
  97.        ))
  98.  
  99.     (set #wrk_changingtooltypes (cat "\n"
  100.        "The Tooltype settings will copied to the example\n"
  101.        "files and to the default ikons.\n"
  102.        ))
  103.  
  104.     (set #pubscreenuse_hint (cat "\n"
  105.        "You want to use a public screen!\n\n"
  106.        "Please use the stormScreenManager or an other\n"
  107.        "Tool to open a public screen bevor you start\n"
  108.        "the StormC environment!\n"
  109.        ))
  110.  
  111.     (set #goldeduse_hint (cat "\n"
  112.        "You use GoldEd instead of StormED!\n\n"
  113.        "You have to configurate GoldEd memory resident.\n\n"
  114.        "(Menu \"Config/Misc\"\n"
  115.        "Dialogentry:\"Misc/resident\")\n"
  116.        ))
  117.  
  118.     (set #registration (cat "\n"
  119.        "You'll find a report of the installation in your\n"
  120.        "RAM-Disk with the name \"StormREPORT.TXT\".\n\n"
  121.        ))
  122.  
  123.     (set #regnummer (cat "\n"
  124.        "Please enter the registrationnumber for your\n"
  125.        "StromC licence.\n\n"
  126.        "You can find the number on the registrationcard.\n"
  127.        "\n"
  128.        ))
  129.  
  130.     (set #regnummer_help (cat "\n"
  131.        "We need this to give you an easier support on\n"
  132.        "our products.\n"
  133.        "\n"
  134.        ))
  135.  
  136.     (set #realname (cat "\n"
  137.        "Please enter your name and firstname.\n\n"
  138.        ))
  139.  
  140.     (set #realname_help (cat "\n"
  141.        "We need this to give you an easier support on\n"
  142.        "our products.\n"
  143.        ))
  144.  
  145.     (set #nosyntaxcolouring_hint (cat "\n"
  146.        "You don`t want to use the editors syntax colouring!\n\n"
  147.        "If you want to switch it on later you have to\n"
  148.        "change the default icons in the ENVARC:\n"
  149.        "drawer and conigurate the colors in the editor\n"
  150.        "settings.\n"
  151.        ))
  152.  
  153.     (set #yessyntaxcolouring_hint (cat "\n"
  154.        "You want to work with the editor syntax colouring!\n\n"
  155.        "After programstart please open an empty editor\n"
  156.        "window and make the coloursettings for your system.\n"
  157.        ))
  158.  
  159.     (set #ask-license
  160.     (cat "\n\nPlease read the\"LICENSE CONDITIONS\" at the top of the screen"
  161.          " carefully. Click on the button "
  162.          "\"Accept\" or \"Reject\" to go on with the installation "
  163.          "or to abort the installation."
  164.     ))
  165.  
  166.     (set #ask-license-1
  167.     (cat "Accept"
  168.     ))
  169.  
  170.     (set #ask-license-2
  171.     (cat "Reject"
  172.     ))
  173.  
  174.     (set #licencetext 'Lizenz/English.guide')
  175.  
  176.     (set #nolicence
  177.     (cat "\nYou have reject the license agreement.\n\n"
  178.          "The installation is stoped now."
  179.     ))
  180.  
  181.  
  182. (if (= @language "deutsch") (
  183.    (set #prp-copy-all
  184.            "Das Update wird installiert.")
  185.    (set #hlp-copy-all
  186.            "Kopiere alle Bestandteile des Updates über die alte Installation.")
  187.    (set #prp-copy-env
  188.            "Kopiere die StormC Default-Piktogramme")
  189.    (set #hlp-copy-env
  190.            "Die Piktogramme werden von der Projektverwaltung und vom Editor benötigt")
  191.    (set #prp-copy-wizlib
  192.       "Kopiere die Wizard.Library")
  193.    (set #hlp-copy-wizlib
  194.       "Sie ist für die sehr kurzen Programme verantwortlich!")
  195.     (set #oldversion (cat "\n"
  196.         "Auf Ihrer Festplatte befindet sich bereits\n"
  197.         "eine Installation von StormC!\n"
  198.         "" (getassign "STORMC") "\n"
  199.         ))
  200.  
  201.     (set #oldversion_help (cat "\n"
  202.         " Wählen Sie einfach die bereits vorhandene\n"
  203.         "Schublade an, wenn Sie ihr altes System\n"
  204.         "aktualisieren möchten!\n\n"
  205.         "Ihr alten Voreinstellungen wie das Default-\n"
  206.         "Projekt oder die Systemeinstellungen werden\n"
  207.         "dadurch ÜBERSCHRIEBEN!"
  208.         ))
  209.     (set #new    "Neu installieren")
  210.     (set #drueber "Update über bisherige Version installieren")
  211. ;    (set #remove "Deinstallation - StormC entfernen")
  212.  
  213.     (set #tooltype_select (cat "\n"
  214.        "Bitte wählen Sie, welche der angegeben Tool-\n"
  215.        "types aktiviert werden sollen:\n"
  216.        ))
  217.  
  218.     (set #tooltype_select_help (cat "\n\n"
  219.        " PUBSCREEN=STORMC                                \n\n"
  220.        "Wenn StormC auf einem eigenen Screen gestartet   \n"
  221.        "werden soll. Beachten Sie bitte, daß Sie auch    \n"
  222.        "den Pub-Screen-Manager installieren müssen.      \n\n"
  223.        " QUIET=TRUE                                      \n\n"
  224.        "Während des Systemstarts wird kein Fenster ge-   \n"
  225.        "öffnet und es erfolgt keine Anzeige des Start-   \n"
  226.        "Bildes.                                          \n\n"
  227.        " HOTHELP=TRUE                                    \n\n"
  228.        "Statt der mitgelieferten Online-Hilfe im Amige-  \n"
  229.        "Guide-Format soll alternativ HotHelp verwendet   \n"
  230.        "werden.                                          \n\n"
  231.        " GOLDED=TRUE                                     \n\n"
  232.        "Alternativ zum StormED kann auch der GoldED ab   \n"
  233.        "Version 3.1.4 genutzt werden. Für den Debugger   \n"
  234.        "wird nach wie vor der StormED geladen.           \n"
  235.        "Diese Koniguration sollten Sie nur verwenden,    \n"
  236.        "wenn Sie über ausreichend RAM-Speicher verfügen. \n\n"
  237.        " SAVEMEM=TRUE                                     \n\n"
  238.        "Es werden nur die zum Starten benötigten Programme\n"
  239.        "gestartet. Um Speicher zu sparen lädt die Storm- \n"
  240.        "Shell die Programmteile StormC, StormLink, und   \n"
  241.        "StormRun erst bei Bedarf nach.                   \n"
  242.        "Wenn Sie über ausreichend Speicher verfügen      \n"
  243.        "sollten Sie diese Option nicht nutzen.           \n"
  244.        ))
  245.  
  246.     (set #wrk_changingtooltypes (cat "\n"
  247.        "Die Tooltype-Einstellungen werden auf die\n"
  248.        "Demo-Programme und auf die Vorgaben-Piktogamme\n"
  249.        "übertragen!\n"
  250.        ))
  251.  
  252.     (set #pubscreenuse_hint (cat "\n"
  253.        "Sie nutzen das Public-Screen Tooltype!\n\n"
  254.        "Stellen Sie bitte sicher, daß Sie mit dem\n"
  255.        "StormScreenManager oder einem anderen Tool\n"
  256.        "einen Public-Screen mit dem Namen STORMC\n"
  257.        "definiert haben, damit das Entwicklungssystem\n"
  258.        "auf einem eigenen Screen gestartet werden kann.\n"
  259.        ))
  260.  
  261.     (set #goldeduse_hint (cat "\n"
  262.        "Sie nutzen GoldEd anstelle von StormED!\n\n"
  263.        "Um GoldEd in der StormC-Umgebung nutzen zu\n"
  264.        "können muß er resident gestartet werden.\n\n"
  265.        "(Menü \"Konfig/Diverses\"\n"
  266.        "Dialogeintrag:\"Diverses/resident\")\n"
  267.        ))
  268.  
  269.     (set #registration (cat "\n"
  270.        "Einen Report der Installation finden Sie in Ihrer\n"
  271.        "RAM-Disk unter dem Namen \"StormREPORT.TXT\".\n\n"
  272.        "Die darin enthaltenen Daten werden für alle\n"
  273.        "Supportarbeiten benötigt.\n"
  274.        "Sie können Sie jederzeit erneut erzeugen, indem Sie\n"
  275.        "das Programm StormREPORT in der StromSYS-Schublade\n"
  276.        "starten und die Ausgabe auf die RAM-Disk umlenken.\n"
  277.        ))
  278.  
  279.     (set #regnummer (cat "\n"
  280.        "Bitte geben Sie die Registriernummer Ihres\n"
  281.        "StromC-Paketes an.\n\n"
  282.        "Die Nummer finden Sie auf der Registrierkarte im\n"
  283.        "CD-Booklet\n"
  284.        ))
  285.  
  286.     (set #regnummer_help (cat "\n"
  287.        "Die Angaben der Registriernummer werden für eine\n"
  288.        "einfachere Supportabwicklung in den ENV-Variablen\n"
  289.       "gespeichert\n"
  290.        ))
  291.  
  292.     (set #realname (cat "\n"
  293.        "Bitte geben Sie Ihren Vor- und Zunamen hier an.\n\n"
  294.        ))
  295.  
  296.     (set #realname_help (cat "\n"
  297.        "Ihr Namen wird für eine einfachere Support-\n"
  298.        "abwicklung in den ENV-Variablen gespeichert\n\n"
  299.        ))
  300.  
  301.     (set #nosyntaxcolouring_hint (cat "\n"
  302.        "Sie haben sich entschieden, ohne farbliche\n"
  303.        "Syntax-Hervorhebung zu arbeiten!\n\n"
  304.        "Um diese später eventuell einzuschalten,\n"
  305.        "müssen Sie die Default-Piktogramme in ENVARC:\n"
  306.        "neu installieren und die Farbzuordung im Text-\n"
  307.        "editor auf Ihr System abstimmen!\n"
  308.        ))
  309.  
  310.     (set #yessyntaxcolouring_hint (cat "\n"
  311.        "Sie haben sich entschieden, mit farblicher\n"
  312.        "Syntax-Hervorhebung zu arbeiten!\n\n"
  313.        "Öffnen Sie bitte nach den Programmstart ein\n"
  314.        "leeres Texteditorfenster und nehmen eine\n"
  315.        "Abstimmung der Farbzuordung für Ihr System vor.\n"
  316.        ))
  317.  
  318.     (set #ask-license
  319.     (cat "\n\nLesen Sie die\"LIZENZBEDINGUNGEN\" am oberen Rand bitte "
  320.          "aufmerksam durch. Klicken Sie dann im Installerfenster auf den "
  321.          "Knopf \"Akzeptieren\" oder \"Ablehnen\", um mit der Installation "
  322.          "fortzufahren oder die Installation zu beenden."
  323.     ))
  324.  
  325.     (set #ask-license-1
  326.     (cat "Akzeptieren"
  327.     ))
  328.  
  329.     (set #ask-license-2
  330.     (cat "Ablehnen"
  331.     ))
  332.  
  333.     (set #licencetext 'Lizenz/German.guide')
  334.  
  335.     (set #nolicence
  336.     (cat "\nSie haben die Lizenzbedingungen abgelehnt.\n\n"
  337.          "Die Installation wird nun beendet."
  338.     ))
  339.  
  340. ))
  341.  
  342. ;=====================================================================================
  343. ; Beginn der Installation
  344. ;=====================================================================================
  345.  
  346. ; ----------------------------- Prozeduren ------------------------------
  347.  
  348. (Procedure @Make_Folder
  349.     (
  350.     (set #folder (tackon #folder "StormC"))
  351.         (if (= (exists #folder) 0)
  352.             (
  353.             (makedir #folder (infos))
  354.             )
  355.             (
  356.             (set #update 1)        ; // Doch schon vorhanden!
  357. ;            (set #folder (getassign "STORMC"))
  358.             )
  359.         )
  360.     )
  361. )
  362.  
  363. ;       Alte Version prüfen und entsprechende Warnung ausgeben! **************************************************************
  364.  
  365. (set #folder "WORK:StormC")
  366.  
  367. ;(if (exists "StormC:" (noreq))
  368. ;        (
  369. ;        (set #folder (getassign "STORMC"))
  370. ;        )
  371. ;        (
  372. ;          (if (= @language "deutsch") (
  373. ;            (exit (cat   "\n\nAuf Ihrer Festplatte befindet sich KEINE StormC 2.0 Version!\n"
  374. ;                         "\n\nBitte installieren Sie zunächst die Version 2 von Ihren Original-Disketten."))
  375. ;          )
  376. ;          (
  377. ;          (message (cat   "\n\nThere is NO version 2.0 of StormC preinstalled!\n\n\n"
  378. ;                          "Please install version 2.0 onto your harddrive first.\n"))
  379. ;          )
  380. ;          )
  381. ;        )
  382. ;)
  383.  
  384. ; Eine kleine Einleitung, gefolgt vom Startbild des Installers.
  385.  
  386. ;(set act-user-level @user-level)
  387. ;(user 1)
  388.  
  389. (if (= @language "deutsch") (
  390.   (message (cat   "\nWillkommen bei der Installation der \n\n\n\"StormC Compiler "
  391.                    stcpp-version " vom "stcpp-date "\"!\n\n\n"
  392.                   "Dieses Skript kopiert die verschiedenen Dateien, "
  393.                   "aus denen sich das Compilersystem zusammensetzt, "
  394.                   "auf Ihre Festplatte.\n\n\n\n"
  395.                   "© 1998 HAAGE&PARTNER Computer GmbH")))
  396.  
  397. (
  398.   (message (cat   "\nWelcome to the installation of the \n\n\"StormC Compiler "
  399.                    stcpp-version " of the "stcpp-date "\"!\n\n"
  400.                   "This script copies the files needed by StormC "
  401.                   "to your harddisk.\n\n\n\n"
  402.                   "© 1998 HAAGE&PARTNER Computer GmbH"))
  403. )
  404. )
  405.  
  406. ;(user act-user-level)
  407. (welcome)
  408.  
  409. (complete 5)
  410.  
  411. (set #update 0)
  412.  
  413. (if (exists "StormC:" (noreq))
  414.     (
  415.         (set #update
  416.             (askchoice
  417.                 (prompt #oldversion)
  418.                 (help   #oldversion_help)
  419.                 (default 1)
  420.                 (choices
  421.                     #new
  422.                     #drueber
  423. ;                    #remove
  424.                 )
  425.             )
  426.         )
  427.     )
  428. )
  429.  
  430. (if (<> #update 0)                        ; // altes Assign benutzen wenn update oder remove
  431.     (
  432.         (set #folder (getassign "STORMC"))
  433.     )
  434. )
  435.  
  436. (complete 8)
  437.  
  438.    (showmedia 'media' #licencetext 'upper_left' 'medium' 1)
  439.  
  440.    (set #lizresult (askbool (prompt #ask-license)
  441.                    (help @askbool-help)
  442.                    (choices #ask-license-1 #ask-license-2)
  443.                    (default 0)))
  444.  
  445.    (if (= #lizresult 0)
  446.       (
  447.       (complete 100)
  448.       (exit #nolicence)
  449.       ))
  450.  
  451.  
  452. ;(set #regnum
  453. ;    (askstring
  454. ;        (prompt #regnummer)
  455. ;        (help   #regnummer_help)
  456. ;        (default (getenv "STORMCPP/REGNUM"))
  457. ;    )
  458. ;)
  459.  
  460. ;(run "setenv STORMCPP/REGNUM" #regnum)
  461. ;(run "copy ENV:STORMCPP/REGNUM ENVARC:STORMCPP")
  462.  
  463. ;(complete 8)
  464.  
  465. ;(set #realname
  466. ;    (askstring
  467. ;        (prompt #realname)
  468. ;        (help   #realname_help)
  469. ;        (default (getenv "REALNAME"))
  470. ;    )
  471. ;)
  472.  
  473. ;(complete 10)
  474.  
  475. ;(run "setenv REALNAME" #realname)
  476. ;(run "copy ENV:REALNAME ENVARC:")
  477.  
  478.  
  479. (if (= #update 0)
  480.     (
  481.     (set ok 0)
  482.         (while (not ok)
  483.             (set #folder
  484.                 (askdir
  485.                 (prompt #chose_path)
  486.                 (help #chose_path_help)    ; // Auswahl Hilfetext
  487.                 (default #folder)
  488.                 (disk)
  489.                 )
  490.             )
  491.  
  492.             (@Make_Folder)    ; // Automatisch neues Verzeichnis anlegen!
  493.  
  494.     (set #dir_error (cat  "\n"
  495.         "Your selection \"" #folder "\" is not a\n"
  496.         "valid device or drawer!\n\n"
  497.         "Select 'Show drives' to get an overview of all\n"
  498.         "devices available on your Amiga.\n"
  499.         "Please select one of the devices on top of\n"
  500.         "the list.\n"
  501.         "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0\"\n"
  502.         "Do not use \"DF0:\", \"DF1:\", \"DF2:\",\n"
  503.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
  504.         "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"!\n\n"
  505.         ))
  506.  
  507.     (set #memory_error (cat  "\n"
  508.         "There is not enough free disk space at the\n"
  509.         "device you have selected for the installation.\n\n"
  510.         "Free diskspace    " freediskspace "!\n"
  511.         "Diskspace needed  " size-komplett "!\n\n"
  512.         "Please select a another device or harddisk!"
  513.         ))
  514.  
  515. (if (= @language "deutsch") (
  516.  
  517.  
  518.     (set #dir_error (cat  "\n"
  519.         "Bei Ihrer Auswahl \"" #folder "\" handelt es   \n"
  520.         "sich nicht um eine gültige Schublade!         \n"
  521.         "                                              \n"
  522.         "Sie können über das Symbol 'Laufwerke anz.'   \n"
  523.         "(bzw. 'Show drives') eine Übersicht über alle \n"
  524.         "Laufwerke Ihres Amiga anfordern; aus dieser   \n"
  525.         "Übersicht sollten Sie nur die oberen, nicht   \n"
  526.         "farblich gekennzeichneten Einträge auswählen. \n"
  527.         "Über den Schalter \"Neue Schublade anlegen..\"\n"
  528.         "können Sie ein neue Schublade erzeugen. Diese \n"
  529.         "neue Schublade wird auf der Partition        \n"
  530.         "angelegt, die Sie soeben betrachten."
  531.         ))
  532.  
  533.     (set #memory_error (cat  "\n"
  534.         "Auf der ausgewählten Festplattenpartition     \n"
  535.         "steht nicht genügend freier Speicher für die  \n"
  536.         "komplette Installation des Compilersystems zur\n"
  537.         "Verfügung.                                    \n"
  538.         "                                              \n"
  539.         "Freier Speicher " freediskspace "!            \n"
  540.         "Benötigter Speicher " size-komplett "!        \n"
  541.         "                                              \n"
  542.         "Bitte wählen Sie eine andere Partition, auf   \n"
  543.         "der entsprechende Kapazitäten vorhanden sind!"
  544.         ))
  545. ))
  546.  
  547. (if (= @language "italiano") (
  548.  
  549.     (set #dir_error (cat  "\n"
  550.         "La vostra selezione (\"" #folder "\") non è\n"
  551.         "un disco o un cassetto valido!\n\n"
  552.         "Selezionate 'Dischi' per avere una lista dei\n"
  553.         "dischi disponibili sul vostro Amiga.\n"
  554.         "Alcuni nomi tipici sono \"WORK:\", \"HD0:\" o \"DH0\"\n"
  555.         "NON usate \"DF0:\", \"DF1:\", \"DF2:\",\n"
  556.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
  557.         "\"WB_2.x:\", \"System3.0:\" o \"WB_3.x:\"!\n\n"
  558.         ))
  559.  
  560.     (set #memory_error (cat  "\n"
  561.         "Il disco che avete selezionato non ha\n"
  562.         "abbastanza spazio libero.\n\n"
  563.         "Spazio disponibile   " freediskspace "\n"
  564.         "Spazio richiesto     " size-komplett "\n\n"
  565.         "Provate a selezionare un altro disco."
  566.         ))
  567. ))
  568.  
  569.             ; // Ist der Dateiname leer oder endet mit einem ':' oder existiert unter
  570.             ; // diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
  571.             ; // kann die Auswahl-Schleife beendet werden.
  572.             (if (or (or (or (<= (strlen #folder) 0) (= (substr #folder (- (strlen #folder) 1) 1) ":")) (= (exists #folder (noreq)) 0)) (= (getdiskspace #folder) -1))
  573.                 (message #dir_error)  ; Fehler bei der Auswahl der Schublade
  574.                 ;else
  575.                 (
  576.                     (set freediskspace (getdiskspace #folder))  ; // Der freie Speicher auf diesem Medium
  577.                     (if (< freediskspace size-komplett)
  578.                         (
  579.                         (user 1)
  580.                             (message #memory_error)  ; // nicht genügend freier Speicher
  581.                         )
  582.                      ;else
  583.                         (set ok 1)
  584.                     )
  585.                 )
  586.             )
  587.         )
  588.     )
  589. )
  590.  
  591. (makeassign "STORMC")
  592.  
  593. ;(user act-user-level)
  594.  
  595. (if (<> #update 0)  ; // vor dem Update muß einiges umgebaut werden!
  596.     (
  597.     (set destbin (tackon #folder "Bin"))
  598.     (set newdestbin (tackon #folder "StormSYS"))  ; // Name geändert seit Version 1.04
  599.  
  600.     (if (exists destbin)                         ; // Compiler-Verzeichnis umbenennen
  601.         (
  602.         (rename destbin newdestbin)
  603.  
  604.         (set oldfile (tackon newdestbin "startup.o"))
  605.         (set oldfolder (tackon #folder "OBSOLETE"))
  606.         (if (= (exists oldfolder) 0)             ; // Verzeichnis für alte Dateien anlegen
  607.             (makedir oldfolder)
  608.         )
  609.         (if (exists oldfile)
  610.             (
  611.                 (copyfiles
  612.                     (
  613.                     (source oldfile)                     ; // alte Startup.o retten
  614.                     (dest oldfolder)
  615.                     )
  616.                 )
  617.             )
  618.         )
  619.         (set destbin (tackon #folder "Bin.info"))
  620.         (set newdestbin (tackon #folder "StormSYS.info"))
  621.         (if (exists destbin)
  622.             (rename destbin newdestbin)
  623.         )
  624.         (set destlib    (tackon #folder "Lib"))
  625.         (set oldfile (tackon destlib "storm.lib"))
  626.         (if (exists oldfile)
  627.             (
  628.                 (copyfiles
  629.                     (
  630.                     (source oldfile)                     ; // alte Storm.lib retten
  631.                     (dest oldfolder)
  632.                     )
  633.                 )
  634.             )
  635.         )
  636.         )
  637.     )
  638.     (set destdemo (tackon #folder "Beispiele"))   ; // Name geändert seit Version 1.04
  639.     (set newdestdemo (tackon #folder "Examples")) ; // Name geändert seit Version 1.04
  640.     (if (exists destdemo)                        ; // Verzeichnis für Beispiele umbenennen
  641.         (
  642.         (rename destdemo newdestdemo)
  643.         (set destdemo (tackon #folder "Beispiele.info"))   ; // Name geändert seit Version 1.08
  644.         (set newdestdemo (tackon #folder "Examples.info")) ; // Name geändert seit Version 1.08
  645.         (rename destdemo newdestdemo)
  646.         )
  647.     )
  648.     (set destsys (tackon #folder "StormSYS"))
  649.     (if (exists destsys)
  650.         (
  651.         (set oldfile (tackon destsys "ABOUT3.0.IFF"))
  652.         (if (exists oldfile)
  653.             (
  654.             (delete oldfile)                         ; // wird nicht mehr gebraucht
  655.             ))
  656.         (set oldfile (tackon destsys "storm.library"))
  657.         (if (exists oldfile)
  658.             (
  659.             (delete oldfile)                         ; // wird nicht mehr gebraucht
  660.             ))
  661.  
  662.         (set oldfile (tackon destsys "STORMSETTINGS.RUN"))
  663.         (if (exists oldfile)
  664.             (
  665.             (delete oldfile)                         ; // wird nicht mehr gebraucht
  666.             ))
  667.  
  668.         (set olddict (tackon destsys "Lexikon"))
  669.         (set newdict (tackon destsys "Dictionary"))
  670.         (if (exists olddict)
  671.             (
  672.             (rename olddict newdict)            ; // Name geändert seit Version 1.04
  673.  
  674.             (set oldfile (tackon newdict "Amiga Funktionen.lexikon"))
  675.             (if (exists oldfile)
  676.                 (
  677.                 (delete oldfile)                         ; // wird nicht mehr gebraucht
  678.                 ))
  679.             (set oldfile (tackon newdict "Amiga Typen.lexikon"))
  680.             (if (exists oldfile)
  681.                 (
  682.                 (delete oldfile)                         ; // wird nicht mehr gebraucht
  683.                 ))
  684.             (set oldfile (tackon newdict "Benutzer1.lexikon"))
  685.             (set newfile (tackon newdict "User 1.dic"))
  686.             (if (exists oldfile)
  687.                 (
  688.                 (rename oldfile newfile)                 ; // wird umbenannt
  689.                 ))
  690.             (set oldfile (tackon newdict "Benutzer2.lexikon"))
  691.             (set newfile (tackon newdict "User 2.dic"))
  692.             (if (exists oldfile)
  693.                 (
  694.                 (rename oldfile newfile)                 ; // wird umbenannt
  695.                 ))
  696.             (set oldfile (tackon newdict "Benutzer3.lexikon"))
  697.             (set newfile (tackon newdict "User 3.dic"))
  698.             (if (exists oldfile)
  699.                 (
  700.                 (rename oldfile newfile)                 ; // wird umbenannt
  701.                 ))
  702.             (set oldfile (tackon newdict "C Bibliothek.lexikon"))
  703.             (if (exists oldfile)
  704.                 (
  705.                 (delete oldfile)                         ; // wird nicht mehr gebraucht
  706.                 ))
  707.             (set oldfile (tackon newdict "C Wörter.lexikon"))
  708.             (if (exists oldfile)
  709.                 (
  710.                 (delete oldfile)                         ; // wird nicht mehr gebraucht
  711.                 ))
  712.             (set oldfile (tackon newdict "Preprozessor.lexikon"))
  713.             (if (exists oldfile)
  714.                 (
  715.                 (delete oldfile)                         ; // wird nicht mehr gebraucht
  716.                 ))
  717.             ))
  718.         ))
  719.     )
  720. )
  721.  
  722. ;(set @default-dest #folder)      ; Die Zuweisung ist sehr wichtig!
  723.  
  724. (complete 10)
  725.  
  726. ; // Die Icon Geschichte!
  727.  
  728. (set install_tooltypes
  729.  
  730.     (askoptions
  731.  
  732.         (prompt #tooltype_select)
  733.         (help   #tooltype_select_help)
  734.  
  735.         (default 0)
  736.  
  737.         (choices
  738.             #tooltype_select_pubscreen
  739.             #tooltype_select_quite
  740.             #tooltype_select_hothelp
  741.             #tooltype_select_golded
  742.             #tooltype_select_savemem
  743.         )
  744.     )
  745. )
  746.  
  747. (set #pubscvar   "DEFAULT")
  748. (set #quietvar   "FALSE")
  749. (set #hothelpvar "FALSE")
  750. (set #goldedvar  "FALSE")
  751. (set #savememvar "FALSE")
  752.  
  753. (if (= 1 (bitand install_tooltypes 1))
  754.     (
  755.     (set #pubscvar "STORMC")
  756.     ))
  757.  
  758. (if (= 2 (bitand install_tooltypes 2))
  759.     (
  760.     (set #quietvar "TRUE")
  761.     ))
  762.  
  763. (if (= 4 (bitand install_tooltypes 4))
  764.     (
  765.     (set #hothelpvar "TRUE")
  766.     ))
  767.  
  768. (if (= 8 (bitand install_tooltypes 8))
  769.     (
  770.     (set #goldedvar "TRUE")
  771.     ))
  772.  
  773. (if (= 16 (bitand install_tooltypes 16))
  774.     (
  775.     (set #savememvar "TRUE")
  776.     ))
  777.  
  778. ;(set morerunpath "run C/More Liesmich")
  779.  
  780. ;(run morerunpath)       ; Liesmich laden
  781.  
  782. ;(complete 10)
  783.  
  784. (complete 15)
  785.  
  786. (copyfiles                          ; Alles installieren
  787.         (prompt #prp-copy-all)
  788.         (help #hlp-copy-all)
  789.         (source #binsource)
  790.         (dest #folder)
  791.         (all)
  792. )
  793.  
  794. (complete 80)
  795.  
  796. (copyfiles                          ; Ikons installieren
  797.         (prompt #prp-copy-all)
  798.         (help #hlp-copy-all)
  799.         (source "Ikons")
  800.         (dest #folder)
  801.         (all)
  802. )
  803.  
  804. (complete 90)
  805.  
  806. (if (exists "ENVARC:STORMCPP")
  807.     (
  808.     (delete "ENVARC:STORMCPP" (all))
  809.     ))
  810.  
  811.  
  812. (copyfiles                           ; Settings kopieren
  813.         (prompt #prp-copy-env)
  814.         (help #hlp-copy-env)
  815.         (source #envsource)
  816.         (dest "ENVARC:")
  817.         (all)
  818. ;        (confirm)
  819. )
  820.  
  821. (complete 95)
  822.  
  823. (if (exists "ENV:STORMCPP")
  824.     (
  825.     (delete "ENV:STORMCPP" (all))
  826.     ))
  827.  
  828. (copyfiles                          ; Settings kopieren
  829.         (prompt #prp-copy-env)
  830.         (help #hlp-copy-env)
  831.         (source #envsource)
  832.         (dest "ENV:")
  833.         (all)
  834. ;        (confirm)
  835. )
  836.  
  837. (complete 96)
  838.  
  839. (copylib                            ; Wizard.library kopieren
  840.         (prompt #prp-copy-wizlib)
  841.         (help #hlp-copy-wizlib)
  842.         (source #wizlib)
  843.         (dest "LIBS:")
  844. ;        (confirm)
  845. )
  846.  
  847. (if (<> @language "deutsch") (
  848.  
  849. (delete "StormC:StormSYS/Help" (all))
  850. (rename "StormC:StormSYS/Help-English" "StormC:StormSYS/Help")
  851.  
  852. ))
  853.  
  854. (complete 99)
  855.  
  856. ;============= Startup ändern =====================================================
  857.  
  858. (set #wizfolder (tackon #folder "StormWIZARD1.0"))
  859.  
  860. (set #startuptemp (cat "\nASSIGN STORMC: " #folder "\n"))
  861.  
  862. (set #startup (cat "\n"
  863.     "To get StormC work well there has to be made\n"
  864.     "some changes to your User-Startup.\n\n"
  865.     #startuptemp
  866.     ))
  867.  
  868. (set #endnow (cat "Installation of StormC V3.0 completed.\n"
  869.     "When the lines:\n" #startuptemp "\ndo not appear\n"
  870.     "in your Startup-Sequence or User-Startup,\n"
  871.     "please do it manually.\n\n"
  872.     "Remove all disks and start StormC.\n\n"
  873.     "Best wishes..."
  874.     "HAAGE & PARTNER"
  875.     ))
  876.  
  877. (if (= @language "deutsch") (
  878.  
  879. (set #startup (cat "\n"
  880.     "Um mit StormC richtig arbeiten zu können, muß \n"
  881.     "eine Änderung an der User-Startup vorgenommen \n"
  882.     "werden:                                       \n"
  883.     "                                              \n"
  884.     #startuptemp
  885.     ))
  886.  
  887. (set #endnow (cat "\n"
  888.     "Installation des StormC Compilers V3.0 beendet.\n\n"
  889.     "Falls die Zeile:\n" #startuptemp "\n"
  890.     "nicht in Ihre User-Startup eingefügt wurde,   \n"
  891.     "dann holen Sie dies bitte nach.               \n\n"
  892.     "Entfernen Sie nun die Diskette aus Ihrem      \n"
  893.     "Laufwerk und starten Sie StormC.              \n\n"
  894.     "Wir wünschen Ihnen viel Erfolg bei der Lösung \n"
  895.     "Ihrer Programmieraufgaben!"
  896.     ))
  897. ))
  898.  
  899. (if (= @language "italiano") (
  900.  
  901. (set #startup (cat "\n"
  902.     "Per completare l'installazione dello StormC\n"
  903.     "sono necessarie alcune modifiche alla User-Startup.\n\n"
  904.     #startuptemp
  905.     ))
  906.  
  907. (set #endnow (cat "L'installazione dello StormC V3.0 è terminata.\n"
  908.     "Se le righe\n" #startuptemp "\nnon compaiono nella Startup-Sequence\n"
  909.     "o nella User-Startup, eseguitele manualmente.\n\n"
  910.     "Rimuovete tutti i dischi e avviate lo StormC.\n\n"
  911.     "Con i migliori auguri..."
  912.     "HAAGE & PARTNER"
  913.     ))
  914. ))
  915.  
  916.  
  917. (startup "StormC"
  918.     (prompt #startup)
  919.     (help #help-startup)
  920.     (command #startuptemp)
  921. )
  922.  
  923. (makeassign "STORMC")
  924. (makeassign "STORMC" #folder)
  925.  
  926. (delete "StormC:Änderungen 3.0.guide")
  927. (delete "StormC:Änderungen 3.0.guide.info")
  928.  
  929. (delete "StormC:Changes 3.0.guide")
  930. (delete "StormC:Changes 3.0.guide.info")
  931.  
  932. (delete "StormC:Aggiornamento 3.0.guide")
  933. (delete "StormC:Aggiornamento 3.0.guide.info")
  934.  
  935. (working #wrk_changingtooltypes)
  936.  
  937. (if (= colorset 1)
  938.     (
  939.         (tooltype
  940.             (setdefaulttool "StormC:StormSYS/StormCPP")
  941.             (setstack 15000)
  942.             (settooltype "PUBSCREEN" #pubscvar)
  943.             (settooltype "QUIET" #quietvar)
  944.             (settooltype "HOTHELP" #hothelpvar)
  945.             (settooltype "GOLDED" #goldedvar)
  946.             (settooltype "SAVEMEM" #savememvar)
  947.             (dest "StormC:Examples/Colorwheel/Colorwheel.¶")
  948.         )
  949.         (tooltype
  950.             (setdefaulttool "StormC:StormSYS/StormCPP")
  951.             (setstack 15000)
  952.             (settooltype "PUBSCREEN" #pubscvar)
  953.             (settooltype "QUIET" #quietvar)
  954.             (settooltype "HOTHELP" #hothelpvar)
  955.             (settooltype "GOLDED" #goldedvar)
  956.             (settooltype "SAVEMEM" #savememvar)
  957.             (dest "StormC:Examples/DebugTutorial/DebugTutorial.¶")
  958.         )
  959.         (tooltype
  960.             (setdefaulttool "StormC:StormSYS/StormCPP")
  961.             (setstack 15000)
  962.             (settooltype "PUBSCREEN" #pubscvar)
  963.             (settooltype "QUIET" #quietvar)
  964.             (settooltype "HOTHELP" #hothelpvar)
  965.             (settooltype "GOLDED" #goldedvar)
  966.             (settooltype "SAVEMEM" #savememvar)
  967.             (dest "StormC:Examples/Fplot/Fplot.¶")
  968.         )
  969.         (tooltype
  970.             (setdefaulttool "StormC:StormSYS/StormCPP")
  971.             (setstack 15000)
  972.             (settooltype "PUBSCREEN" #pubscvar)
  973.             (settooltype "QUIET" #quietvar)
  974.             (settooltype "HOTHELP" #hothelpvar)
  975.             (settooltype "GOLDED" #goldedvar)
  976.             (settooltype "SAVEMEM" #savememvar)
  977.             (dest "StormC:Examples/Gadtools/Gadtools.¶")
  978.         )
  979.         (tooltype
  980.             (setdefaulttool "StormC:StormSYS/StormCPP")
  981.             (setstack 15000)
  982.             (settooltype "PUBSCREEN" #pubscvar)
  983.             (settooltype "QUIET" #quietvar)
  984.             (settooltype "HOTHELP" #hothelpvar)
  985.             (settooltype "GOLDED" #goldedvar)
  986.             (settooltype "SAVEMEM" #savememvar)
  987.             (dest "StormC:Examples/Illresource/Illresource.¶")
  988.         )
  989.         (tooltype
  990.             (setdefaulttool "StormC:StormSYS/StormCPP")
  991.             (setstack 15000)
  992.             (settooltype "PUBSCREEN" #pubscvar)
  993.             (settooltype "QUIET" #quietvar)
  994.             (settooltype "HOTHELP" #hothelpvar)
  995.             (settooltype "GOLDED" #goldedvar)
  996.             (settooltype "SAVEMEM" #savememvar)
  997.             (dest "StormC:Examples/Parser/Parser.¶")
  998.         )
  999.         (tooltype
  1000.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1001.             (setstack 15000)
  1002.             (settooltype "PUBSCREEN" #pubscvar)
  1003.             (settooltype "QUIET" #quietvar)
  1004.             (settooltype "HOTHELP" #hothelpvar)
  1005.             (settooltype "GOLDED" #goldedvar)
  1006.             (settooltype "SAVEMEM" #savememvar)
  1007.             (dest "StormC:Examples/Pi/Drops.¶")
  1008.         )
  1009.         (tooltype
  1010.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1011.             (setstack 15000)
  1012.             (settooltype "PUBSCREEN" #pubscvar)
  1013.             (settooltype "QUIET" #quietvar)
  1014.             (settooltype "HOTHELP" #hothelpvar)
  1015.             (settooltype "GOLDED" #goldedvar)
  1016.             (settooltype "SAVEMEM" #savememvar)
  1017.             (dest "StormC:Examples/shard lib example/lib.¶")
  1018.         )
  1019.         (tooltype
  1020.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1021.             (setstack 15000)
  1022.             (settooltype "PUBSCREEN" #pubscvar)
  1023.             (settooltype "QUIET" #quietvar)
  1024.             (settooltype "HOTHELP" #hothelpvar)
  1025.             (settooltype "GOLDED" #goldedvar)
  1026.             (settooltype "SAVEMEM" #savememvar)
  1027.             (dest "StormC:Examples/shard lib example/test.¶")
  1028.         )
  1029.  
  1030.         (tooltype
  1031.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1032.             (setstack 15000)
  1033.             (settooltype "PUBSCREEN" #pubscvar)
  1034.             (settooltype "QUIET" #quietvar)
  1035.             (settooltype "HOTHELP" #hothelpvar)
  1036.             (settooltype "GOLDED" #goldedvar)
  1037.             (settooltype "SAVEMEM" #savememvar)
  1038.             (dest "Env:StormCPP/def_project")
  1039.         )
  1040.         (tooltype
  1041.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1042.             (setstack 15000)
  1043.             (settooltype "PUBSCREEN" #pubscvar)
  1044.             (settooltype "QUIET" #quietvar)
  1045.             (settooltype "HOTHELP" #hothelpvar)
  1046.             (settooltype "GOLDED" #goldedvar)
  1047.             (settooltype "SAVEMEM" #savememvar)
  1048.             (dest "Env:StormCPP/def_text")
  1049.         )
  1050.         (tooltype
  1051.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1052.             (setstack 15000)
  1053.             (settooltype "PUBSCREEN" #pubscvar)
  1054.             (settooltype "QUIET" #quietvar)
  1055.             (settooltype "HOTHELP" #hothelpvar)
  1056.             (settooltype "GOLDED" #goldedvar)
  1057.             (settooltype "SAVEMEM" #savememvar)
  1058.             (dest "Env:StormCPP/def_text.c")
  1059.         )
  1060.         (tooltype
  1061.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1062.             (setstack 15000)
  1063.             (settooltype "PUBSCREEN" #pubscvar)
  1064.             (settooltype "QUIET" #quietvar)
  1065.             (settooltype "HOTHELP" #hothelpvar)
  1066.             (settooltype "GOLDED" #goldedvar)
  1067.             (settooltype "SAVEMEM" #savememvar)
  1068.             (dest "Env:StormCPP/def_text.cc")
  1069.         )
  1070.         (tooltype
  1071.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1072.             (setstack 15000)
  1073.             (settooltype "PUBSCREEN" #pubscvar)
  1074.             (settooltype "QUIET" #quietvar)
  1075.             (settooltype "HOTHELP" #hothelpvar)
  1076.             (settooltype "GOLDED" #goldedvar)
  1077.             (settooltype "SAVEMEM" #savememvar)
  1078.             (dest "Env:StormCPP/def_text.cpp")
  1079.         )
  1080.         (tooltype
  1081.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1082.             (setstack 15000)
  1083.             (settooltype "PUBSCREEN" #pubscvar)
  1084.             (settooltype "QUIET" #quietvar)
  1085.             (settooltype "HOTHELP" #hothelpvar)
  1086.             (settooltype "GOLDED" #goldedvar)
  1087.             (settooltype "SAVEMEM" #savememvar)
  1088.             (dest "Env:StormCPP/def_text.h")
  1089.         )
  1090.         (tooltype
  1091.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1092.             (setstack 15000)
  1093.             (settooltype "PUBSCREEN" #pubscvar)
  1094.             (settooltype "QUIET" #quietvar)
  1095.             (settooltype "HOTHELP" #hothelpvar)
  1096.             (settooltype "GOLDED" #goldedvar)
  1097.             (settooltype "SAVEMEM" #savememvar)
  1098.             (dest "Envarc:StormCPP/def_project")
  1099.         )
  1100.         (tooltype
  1101.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1102.             (setstack 15000)
  1103.             (settooltype "PUBSCREEN" #pubscvar)
  1104.             (settooltype "QUIET" #quietvar)
  1105.             (settooltype "HOTHELP" #hothelpvar)
  1106.             (settooltype "GOLDED" #goldedvar)
  1107.             (settooltype "SAVEMEM" #savememvar)
  1108.             (dest "Envarc:StormCPP/def_text")
  1109.         )
  1110.         (tooltype
  1111.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1112.             (setstack 15000)
  1113.             (settooltype "PUBSCREEN" #pubscvar)
  1114.             (settooltype "QUIET" #quietvar)
  1115.             (settooltype "HOTHELP" #hothelpvar)
  1116.             (settooltype "GOLDED" #goldedvar)
  1117.             (settooltype "SAVEMEM" #savememvar)
  1118.             (dest "Envarc:StormCPP/def_text.c")
  1119.         )
  1120.         (tooltype
  1121.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1122.             (setstack 15000)
  1123.             (settooltype "PUBSCREEN" #pubscvar)
  1124.             (settooltype "QUIET" #quietvar)
  1125.             (settooltype "HOTHELP" #hothelpvar)
  1126.             (settooltype "GOLDED" #goldedvar)
  1127.             (settooltype "SAVEMEM" #savememvar)
  1128.             (dest "Envarc:StormCPP/def_text.cc")
  1129.         )
  1130.         (tooltype
  1131.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1132.             (setstack 15000)
  1133.             (settooltype "PUBSCREEN" #pubscvar)
  1134.             (settooltype "QUIET" #quietvar)
  1135.             (settooltype "HOTHELP" #hothelpvar)
  1136.             (settooltype "GOLDED" #goldedvar)
  1137.             (settooltype "SAVEMEM" #savememvar)
  1138.             (dest "Envarc:StormCPP/def_text.cpp")
  1139.         )
  1140.         (tooltype
  1141.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1142.             (setstack 15000)
  1143.             (settooltype "PUBSCREEN" #pubscvar)
  1144.             (settooltype "QUIET" #quietvar)
  1145.             (settooltype "HOTHELP" #hothelpvar)
  1146.             (settooltype "GOLDED" #goldedvar)
  1147.             (settooltype "SAVEMEM" #savememvar)
  1148.             (dest "Envarc:StormCPP/def_text.h")
  1149.         )
  1150.     (message #yessyntaxcolouring_hint) ; // Farbliche Syntaxunterscheidung
  1151.  
  1152.     )
  1153.     (
  1154.         (tooltype
  1155.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1156.             (setstack 15000)
  1157.             (settooltype "PUBSCREEN" #pubscvar)
  1158.             (settooltype "QUIET" #quietvar)
  1159.             (settooltype "HOTHELP" #hothelpvar)
  1160.             (settooltype "GOLDED" #goldedvar)
  1161.             (settooltype "SAVEMEM" #savememvar)
  1162.             (settooltype "DICTIONARIES" "0")
  1163.             (settooltype "SYNTAXCOLORING" "0")
  1164.             (dest "StormC:Examples/Colorwheel/Colorwheel.¶")
  1165.         )
  1166.         (tooltype
  1167.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1168.             (setstack 15000)
  1169.             (settooltype "PUBSCREEN" #pubscvar)
  1170.             (settooltype "QUIET" #quietvar)
  1171.             (settooltype "HOTHELP" #hothelpvar)
  1172.             (settooltype "GOLDED" #goldedvar)
  1173.             (settooltype "SAVEMEM" #savememvar)
  1174.             (settooltype "DICTIONARIES" "0")
  1175.             (settooltype "SYNTAXCOLORING" "0")
  1176.             (dest "StormC:Examples/DebugTutorial/DebugTutorial.¶")
  1177.         )
  1178.         (tooltype
  1179.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1180.             (setstack 15000)
  1181.             (settooltype "PUBSCREEN" #pubscvar)
  1182.             (settooltype "QUIET" #quietvar)
  1183.             (settooltype "HOTHELP" #hothelpvar)
  1184.             (settooltype "GOLDED" #goldedvar)
  1185.             (settooltype "SAVEMEM" #savememvar)
  1186.             (settooltype "DICTIONARIES" "0")
  1187.             (settooltype "SYNTAXCOLORING" "0")
  1188.             (dest "StormC:Examples/Fplot/Fplot.¶")
  1189.         )
  1190.         (tooltype
  1191.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1192.             (setstack 15000)
  1193.             (settooltype "PUBSCREEN" #pubscvar)
  1194.             (settooltype "QUIET" #quietvar)
  1195.             (settooltype "HOTHELP" #hothelpvar)
  1196.             (settooltype "GOLDED" #goldedvar)
  1197.             (settooltype "SAVEMEM" #savememvar)
  1198.             (settooltype "DICTIONARIES" "0")
  1199.             (settooltype "SYNTAXCOLORING" "0")
  1200.             (dest "StormC:Examples/Gadtools/Gadtools.¶")
  1201.         )
  1202.         (tooltype
  1203.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1204.             (setstack 15000)
  1205.             (settooltype "PUBSCREEN" #pubscvar)
  1206.             (settooltype "QUIET" #quietvar)
  1207.             (settooltype "HOTHELP" #hothelpvar)
  1208.             (settooltype "GOLDED" #goldedvar)
  1209.             (settooltype "SAVEMEM" #savememvar)
  1210.             (settooltype "DICTIONARIES" "0")
  1211.             (settooltype "SYNTAXCOLORING" "0")
  1212.             (dest "StormC:Examples/Illresource/Illresource.¶")
  1213.         )
  1214.         (tooltype
  1215.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1216.             (setstack 15000)
  1217.             (settooltype "PUBSCREEN" #pubscvar)
  1218.             (settooltype "QUIET" #quietvar)
  1219.             (settooltype "HOTHELP" #hothelpvar)
  1220.             (settooltype "GOLDED" #goldedvar)
  1221.             (settooltype "SAVEMEM" #savememvar)
  1222.             (settooltype "DICTIONARIES" "0")
  1223.             (settooltype "SYNTAXCOLORING" "0")
  1224.             (dest "StormC:Examples/Parser/Parser.¶")
  1225.         )
  1226.         (tooltype
  1227.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1228.             (setstack 15000)
  1229.             (settooltype "PUBSCREEN" #pubscvar)
  1230.             (settooltype "QUIET" #quietvar)
  1231.             (settooltype "HOTHELP" #hothelpvar)
  1232.             (settooltype "GOLDED" #goldedvar)
  1233.             (settooltype "SAVEMEM" #savememvar)
  1234.             (settooltype "DICTIONARIES" "0")
  1235.             (settooltype "SYNTAXCOLORING" "0")
  1236.             (dest "StormC:Examples/Pi/Drops.¶")
  1237.         )
  1238.         (tooltype
  1239.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1240.             (setstack 15000)
  1241.             (settooltype "PUBSCREEN" #pubscvar)
  1242.             (settooltype "QUIET" #quietvar)
  1243.             (settooltype "HOTHELP" #hothelpvar)
  1244.             (settooltype "GOLDED" #goldedvar)
  1245.             (settooltype "SAVEMEM" #savememvar)
  1246.             (settooltype "DICTIONARIES" "0")
  1247.             (settooltype "SYNTAXCOLORING" "0")
  1248.             (dest "StormC:Examples/shard lib example/lib.¶")
  1249.         )
  1250.         (tooltype
  1251.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1252.             (setstack 15000)
  1253.             (settooltype "PUBSCREEN" #pubscvar)
  1254.             (settooltype "QUIET" #quietvar)
  1255.             (settooltype "HOTHELP" #hothelpvar)
  1256.             (settooltype "GOLDED" #goldedvar)
  1257.             (settooltype "SAVEMEM" #savememvar)
  1258.             (settooltype "DICTIONARIES" "0")
  1259.             (settooltype "SYNTAXCOLORING" "0")
  1260.             (dest "StormC:Examples/shard lib example/test.¶")
  1261.         )
  1262.  
  1263.         (tooltype
  1264.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1265.             (setstack 15000)
  1266.             (settooltype "PUBSCREEN" #pubscvar)
  1267.             (settooltype "QUIET" #quietvar)
  1268.             (settooltype "HOTHELP" #hothelpvar)
  1269.             (settooltype "GOLDED" #goldedvar)
  1270.             (settooltype "SAVEMEM" #savememvar)
  1271.             (settooltype "DICTIONARIES" "0")
  1272.             (settooltype "SYNTAXCOLORING" "0")
  1273.             (dest "Env:StormCPP/def_project")
  1274.         )
  1275.         (tooltype
  1276.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1277.             (setstack 15000)
  1278.             (settooltype "PUBSCREEN" #pubscvar)
  1279.             (settooltype "QUIET" #quietvar)
  1280.             (settooltype "HOTHELP" #hothelpvar)
  1281.             (settooltype "GOLDED" #goldedvar)
  1282.             (settooltype "SAVEMEM" #savememvar)
  1283.             (settooltype "DICTIONARIES" "0")
  1284.             (settooltype "SYNTAXCOLORING" "0")
  1285.             (dest "Env:StormCPP/def_text")
  1286.         )
  1287.         (tooltype
  1288.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1289.             (setstack 15000)
  1290.             (settooltype "PUBSCREEN" #pubscvar)
  1291.             (settooltype "QUIET" #quietvar)
  1292.             (settooltype "HOTHELP" #hothelpvar)
  1293.             (settooltype "GOLDED" #goldedvar)
  1294.             (settooltype "SAVEMEM" #savememvar)
  1295.             (settooltype "DICTIONARIES" "0")
  1296.             (settooltype "SYNTAXCOLORING" "0")
  1297.             (dest "Env:StormCPP/def_text.c")
  1298.         )
  1299.         (tooltype
  1300.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1301.             (setstack 15000)
  1302.             (settooltype "PUBSCREEN" #pubscvar)
  1303.             (settooltype "QUIET" #quietvar)
  1304.             (settooltype "HOTHELP" #hothelpvar)
  1305.             (settooltype "GOLDED" #goldedvar)
  1306.             (settooltype "SAVEMEM" #savememvar)
  1307.             (settooltype "DICTIONARIES" "0")
  1308.             (settooltype "SYNTAXCOLORING" "0")
  1309.             (dest "Env:StormCPP/def_text.cc")
  1310.         )
  1311.         (tooltype
  1312.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1313.             (setstack 15000)
  1314.             (settooltype "PUBSCREEN" #pubscvar)
  1315.             (settooltype "QUIET" #quietvar)
  1316.             (settooltype "HOTHELP" #hothelpvar)
  1317.             (settooltype "GOLDED" #goldedvar)
  1318.             (settooltype "SAVEMEM" #savememvar)
  1319.             (settooltype "DICTIONARIES" "0")
  1320.             (settooltype "SYNTAXCOLORING" "0")
  1321.             (dest "Env:StormCPP/def_text.cpp")
  1322.         )
  1323.         (tooltype
  1324.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1325.             (setstack 15000)
  1326.             (settooltype "PUBSCREEN" #pubscvar)
  1327.             (settooltype "QUIET" #quietvar)
  1328.             (settooltype "HOTHELP" #hothelpvar)
  1329.             (settooltype "GOLDED" #goldedvar)
  1330.             (settooltype "SAVEMEM" #savememvar)
  1331.             (settooltype "DICTIONARIES" "0")
  1332.             (settooltype "SYNTAXCOLORING" "0")
  1333.             (dest "Env:StormCPP/def_text.h")
  1334.         )
  1335.         (tooltype
  1336.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1337.             (setstack 15000)
  1338.             (settooltype "PUBSCREEN" #pubscvar)
  1339.             (settooltype "QUIET" #quietvar)
  1340.             (settooltype "HOTHELP" #hothelpvar)
  1341.             (settooltype "GOLDED" #goldedvar)
  1342.             (settooltype "SAVEMEM" #savememvar)
  1343.             (settooltype "DICTIONARIES" "0")
  1344.             (settooltype "SYNTAXCOLORING" "0")
  1345.             (dest "Envarc:StormCPP/def_project")
  1346.         )
  1347.         (tooltype
  1348.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1349.             (setstack 15000)
  1350.             (settooltype "PUBSCREEN" #pubscvar)
  1351.             (settooltype "QUIET" #quietvar)
  1352.             (settooltype "HOTHELP" #hothelpvar)
  1353.             (settooltype "GOLDED" #goldedvar)
  1354.             (settooltype "SAVEMEM" #savememvar)
  1355.             (settooltype "DICTIONARIES" "0")
  1356.             (settooltype "SYNTAXCOLORING" "0")
  1357.             (dest "Envarc:StormCPP/def_text")
  1358.         )
  1359.         (tooltype
  1360.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1361.             (setstack 15000)
  1362.             (settooltype "PUBSCREEN" #pubscvar)
  1363.             (settooltype "QUIET" #quietvar)
  1364.             (settooltype "HOTHELP" #hothelpvar)
  1365.             (settooltype "GOLDED" #goldedvar)
  1366.             (settooltype "SAVEMEM" #savememvar)
  1367.             (settooltype "DICTIONARIES" "0")
  1368.             (settooltype "SYNTAXCOLORING" "0")
  1369.             (dest "Envarc:StormCPP/def_text.c")
  1370.         )
  1371.         (tooltype
  1372.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1373.             (setstack 15000)
  1374.             (settooltype "PUBSCREEN" #pubscvar)
  1375.             (settooltype "QUIET" #quietvar)
  1376.             (settooltype "HOTHELP" #hothelpvar)
  1377.             (settooltype "GOLDED" #goldedvar)
  1378.             (settooltype "SAVEMEM" #savememvar)
  1379.             (settooltype "DICTIONARIES" "0")
  1380.             (settooltype "SYNTAXCOLORING" "0")
  1381.             (dest "Envarc:StormCPP/def_text.cc")
  1382.         )
  1383.         (tooltype
  1384.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1385.             (setstack 15000)
  1386.             (settooltype "PUBSCREEN" #pubscvar)
  1387.             (settooltype "QUIET" #quietvar)
  1388.             (settooltype "HOTHELP" #hothelpvar)
  1389.             (settooltype "GOLDED" #goldedvar)
  1390.             (settooltype "SAVEMEM" #savememvar)
  1391.             (settooltype "DICTIONARIES" "0")
  1392.             (settooltype "SYNTAXCOLORING" "0")
  1393.             (dest "Envarc:StormCPP/def_text.cpp")
  1394.         )
  1395.         (tooltype
  1396.             (setdefaulttool "StormC:StormSYS/StormCPP")
  1397.             (setstack 15000)
  1398.             (settooltype "PUBSCREEN" #pubscvar)
  1399.             (settooltype "QUIET" #quietvar)
  1400.             (settooltype "HOTHELP" #hothelpvar)
  1401.             (settooltype "GOLDED" #goldedvar)
  1402.             (settooltype "SAVEMEM" #savememvar)
  1403.             (settooltype "DICTIONARIES" "0")
  1404.             (settooltype "SYNTAXCOLORING" "0")
  1405.             (dest "Envarc:StormCPP/def_text.h")
  1406.         )
  1407.     (message #nosyntaxcolouring_hint) ; // Keine farbliche Syntaxunterscheidung
  1408.     )
  1409.  
  1410. )
  1411.  
  1412. (tooltype ; // DEF-LIBRARIAN Piktogramm!
  1413.     (setdefaulttool "StormC:StormSYS/StormCPP")
  1414.     (setstack 15000)
  1415.     (settooltype "PUBSCREEN" #pubscvar)
  1416.     (dest "Envarc:StormCPP/def_librarian")
  1417. )
  1418.  
  1419.  
  1420. (if (= 1 (bitand install_tooltypes 1)) ; // Pubscreen anlegen
  1421.     (
  1422.     (message #pubscreenuse_hint)
  1423.     ))
  1424.  
  1425. (if (= 8 (bitand install_tooltypes 8)) ; // Golded benutzen
  1426.     (
  1427.     (message #goldeduse_hint)
  1428.     ))
  1429.  
  1430. (execute "StormC:StormSYS/StormREPORT TO RAM:STORMREPORT.TXT")
  1431.  
  1432. (message #registration)
  1433.  
  1434.  
  1435. ; ------- FERTIG
  1436.  
  1437. (complete 100)
  1438.  
  1439. (if (= @language "deutsch") (
  1440.   (message (cat
  1441.           "\n\nInstallation des StormC Compilerpaketes beendet.\n"
  1442.      "\n\n\n\n\n\nWir wünschen ihnen viel Erfolg bei der Lösung Ihrer Programmieraufgaben!")
  1443.   )
  1444. )
  1445. (
  1446.   (message (cat
  1447.      "\n\nInstallation of StormC Compiler is done.\n"
  1448.      "\n\n\n\nBest wishes ... ")
  1449.   ))
  1450. )
  1451.